20 VTAB 4: PRINT "THIS PROGRAM WILL CONVERT A CONVENTIONALSHAPE TABLE TO ONE THAT CAN BE INCREASED";
25 PRINT "OR BE EDITED BY THE 'SHAPE.GENERATOR' PROGRAM, OR BE 'UNCONVERTED' BACK TO THEREGULAR FORMAT, WHICH USES LESS MEMORY."
30 PRINT "HOWEVER, EITHER FORMAT CAN BE USED."
35 VTAB 17: HTAB 6: PRINT "REGULAR --> EDIT FORMAT <1>": PRINT : HTAB 6: PRINT "EDIT --> REGULAR FORMAT <2>": VTAB 17: HTAB 34: GET A$
40 IF A$ = "2" THEN C = 2:TA = 8192:TE = 16384
45 HOME : VTAB 7: PRINT "INPUT EXACT NAME OF EXISTING SHAPE TABLE": IF C = 2 THEN PRINT "(IT MUST HAVE '.SG' AT THE END BUT DON'T": PRINT "TYPE THE '.SG')": PRINT
50 HTAB 10: INPUT N$
55 IF C = 0 THEN IF RIGHT$(N$,3) = ".SG" THEN INVERSE : PRINT : HTAB 5: PRINT "THIS TABLE IS ALREADY CONVERTED.": NORMAL : END
60 IF C = 0 THEN PRINT D$;"BLOAD ";N$;",A$2000"
65 IF C = 2 THEN PRINT D$;"BLOAD ";N$;".SG,A$4000"
430 IF E = 1 THEN IF (YV -MY) >14 OR (MX -XH) >24 THEN 440
435 SA = SA +1: GOTO 402
440 VTAB 17: HTAB 5: PRINT "THIS SHAPE IS LARGER THAN 25*15,": PRINT : HTAB 5: PRINT "AND IS TOO LARGE TO BE EDITED BY": PRINT : HTAB 5: PRINT "THE 'SHAPE GENER-EDITOR' PROGRAM"
445 VTAB 24: HTAB 10: INVERSE : PRINT " ANY KEY TO CONTINUE ": NORMAL : GET A$
450 HOME : VTAB 7: HTAB 10: PRINT "CHOOSE ONE BY NUMBER :-"
605 HOME : VTAB 4: PRINT "THE ORIGINAL SHAPE TABLE THAT WAS NAMED:": HTAB (19 - LEN(NE$)/2): PRINT "< ";NE$;" >"
610 IF C = 2 THEN 635
615 PRINT : PRINT "HAS NOW BEEN CONVERTED SO THAT IT CAN BE": PRINT "EDITED, OR HAVE MORE SHAPES ADDED, USING"
620 PRINT "THE "; CHR$(34);"SHAPE GENER-EDITOR"; CHR$(34);" PROGRAM. IT IS": PRINT "BEING SAVED TO THE DISK, UNDER THE NAME:": PRINT : HTAB (17 - LEN(N$)/2): PRINT "< ";N$;".SG >"
625 PRINT D$;"BSAVE ";N$;".SG,A$4000,L";L
630 GOTO 650
635 PRINT : PRINT "HAS NOW BEEN CHANGED BACK TO THE REGULAR": PRINT "FORMAT. IT IS BEING SAVED TO THE DISK,"